Magic Publisher/Magic Publisher (1996)(Schatztruhe)(Disc 1 of 4).iso/PD-Shareware/Textviewer/MIndicator/Install/InstallMI_DK

Text File | 1996-01-28 | 5KB | 224 lines

(complete 0)

(set versionnumber (getversion "exec.library" (resident)))
(set version (/ versionnumber 65536))

(set usage (exists "MIndicator_GB.guide" (noreq)))

(if (< version 37)
 (
  (abort "Du skal mindst have OS 2.0 for at bruge MultiIndicator.")
 )
)

(set programdir
 (askdir
  (prompt  "Vælg i hvilket katalog du vil installere programmet MultiIndicator.")
  (help    "I det katalog du vælger bliver MultiIndicator kopieret til.")
  (default "SYS:")
  (newpath)
 )
)

(set @default-dest programdir)

(if (= usage 0)
 (copyfiles
  (prompt "Kopierer MultiIndicator-hovedprogram...")
  (source "/MI")
  (infos)
  (dest programdir)
 )
 (copyfiles
  (prompt "kopierer MultiIndicator-hovedprogram...")
  (source "//MI")
  (infos)
  (dest programdir)
 )
)

(complete 42)

(if (= usage 0)
 (copyfiles
  (prompt  "Kopierer hjælp til ENVARC:MIndicator/...")
  (source  "/MI_DK.help")
  (dest    "ENVARC:MIndicator")
  (newname "MI.help")
 )
 (copyfiles
  (prompt  "Kopierer hjælp til ENVARC:MIndicator/...")
  (source  "//MI_DK.help")
  (dest    "ENVARC:MIndicator")
  (newname "MI.help")
 )
)

(if (= usage 0)
 (copyfiles
  (prompt  "Kopierer hjælp til ENV:MIndicator/...")
  (source  "/MI_DK.help")
  (dest    "ENV:MIndicator")
  (newname "MI.help")
 )
 (copyfiles
  (prompt  "Kopierer hjælp til ENV:MIndicator/...")
  (source  "//MI_DK.help")
  (dest    "ENV:MIndicator")
  (newname "MI.help")
 )
)

(complete 46)

(if (askbool
  (prompt "\n\nVil du have installeret MultiIndicatorGuide ?")
  (help   "Dette er dokumentationen til MultiIndicator i AmigaGuide® format.")
 )
 (
  (set guidedir
   (askdir
    (prompt  "Vælg det katalog hvor guiden til MultiIndicator skal installeres.")
    (help    "I det katalog du vælger bliver guidefilen kopieret til.")
    (default "SYS:")
    (newpath)
   )
  )

  (set @default-dest guidedir)

  (if (= usage 0)
   (
    (if (< version 40)
     (copyfiles
      (prompt  "Kopierer MultiIndicatorGuide...")
      (source  "/Documents/OS2.x+3.0/MIndicator_GB.guide")
      (infos)
      (dest guidedir)
      (newname "MIndicator.guide")
     )
     (copyfiles
      (prompt  "Kopierer MultiIndicatorGuide...")
      (source  "/Documents/OS3.1/MIndicator_GB.guide")
      (infos)
      (dest guidedir)
      (newname "MIndicator.guide")
     )
    )
   )
   (copyfiles
    (prompt  "Kopierer MultiIndicatorGuide...")
    (source  "MIndicator_GB.guide")
    (infos)
    (dest guidedir)
    (newname "MIndicator.guide")
   )
  )
 )
)

(set @default-dest programdir)

(complete 72)

(if (askbool
  (prompt "\n\nVil du have installeret MultiIndicatorDoc ?")
  (help   "Dette er dokumentationen til MultiIndicator i ASCII format.")
 )
 (
  (set docdir
   (askdir
    (prompt  "Vælg det katalog hvor doc'en til MultiIndicator skal installeres.")
    (help    "I det katalog du vælger bliver doc'en kopieret til.")
    (default "SYS:")
    (newpath)
   )
  )

  (set @default-dest docdir)

  (if (= usage 0)
   (copyfiles
    (prompt  "Kopierer MultiIndicatorDoc...")
    (source  "/Documents/OS2.x+3.0/MIndicator_GB.doc")
    (infos)
    (dest docdir)
    (newname "MIndicator.doc")
   )
   (copyfiles
    (prompt  "Kopierer MultiIndicatorDoc...")
    (source  "/OS2.x+3.0/MIndicator_GB.doc")
    (infos)
    (dest docdir)
    (newname "MIndicator.doc")
   )
  )
 )
)

(set @default-dest programdir)

(complete 95)

(if (exists "Locale:Catalogs/Dansk")
 (if (askbool
   (prompt "\n\nDo you want to install the dansk catalog ?")
   (help   "")
  )
  (
   (if (= usage 0)
    (copyfiles
     (prompt "Kopierer dansk oversættelse af MultiIndicator...")
     (source "/Catalogs/Dansk/MI.catalog")
     (dest   "Locale:Catalogs/Dansk")
    )
    (copyfiles
     (prompt "Kopierer dansk oversættelse af MultiIndicator...")
     (source "//Catalogs/Dansk/MI.catalog")
     (dest   "Locale:Catalogs/Dansk")
    )
   )
  )
 )
)

(complete 97)

(if (exists "Fonts:")
 (if (askbool
   (prompt "\n\nVil du have installeret MI skrifttypen ?")
   (help   "Her kan du vælge at installere en skrifttype der passer perfekt til MI. Skrifttypen bliver installeret i FONTS:")
  )
  (
   (if (= usage 0)
    (copyfiles
     (prompt "Kopierer MIFont...")
     (source "/MIFonts/MI.font")
     (dest   "Fonts:")
    )
    (copyfiles
     (prompt "Kopierer MIFont...")
     (source "//MIFonts/MI.font")
     (dest   "Fonts:")
    )
   )
   (if (= usage 0)
    (copyfiles
     (prompt "Kopierer MIFont...")
     (source "/MIFonts/MI/8")
     (dest   "Fonts:MI")
    )
    (copyfiles
     (prompt "Kopierer MIFont...")
     (source "//MIFonts/MI/8")
     (dest   "Fonts:MI")
    )
   )
  )
 )
)

(complete 99)

(exit)